SwapGridRealBack Subroutine

private subroutine SwapGridRealBack(matIn, matOut)

transport matrix from grid_real to netcdf format

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: matIn(:,:)
real(kind=float), intent(out) :: matOut(:,:)

Variables

Type Visibility Attributes Name Initial
integer, public :: i
integer, public :: idim
integer, public :: j
integer, public :: jdim

Source Code

SUBROUTINE SwapGridRealBack &
!
(matIn, matOut)

IMPLICIT NONE

!arguments with intent in:
REAL (KIND = float), INTENT (IN) :: matIn(:,:)

!arguments with intent out:
REAL (KIND = float), INTENT (OUT) :: matOut(:,:)

!local variables:
INTEGER :: i,j,idim,jdim
!----------------------end of declaration--------------------------------------
idim = SIZE (matOut,1)
jdim = SIZE (matOut,2)
DO i = 1, idim
  DO j = 1, jdim
    matOut (i,j) = matIn (jdim - j + 1,i)
  END DO
END DO

END SUBROUTINE SwapGridRealBack